home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / CDROM / RexxCD / rexx / tracklist.rexx < prev   
OS/2 REXX Batch file  |  1996-06-28  |  950b  |  43 lines
  1. /*
  2.     Name        :    tracklist.rexx
  3.     Created        :    25/06/96
  4.     Last change    :    27/06/96
  5.  
  6.     Programmer    :    Urban Lindeskog
  7.     Organization    :    ProNotion SWDG
  8.  
  9.  
  10.     List the tracks on the CD.
  11. */
  12. options RESULTS
  13. address REXXCD
  14.  
  15. GETATTR DISC STEM DISC
  16. Say left('', 80, '_')
  17. str='Album title: 'DISC.TITLE'  Total length: 'DISC.LENGTH
  18. Say '| 'left(str, 76)' |'
  19. Say '|'left('', 78)'|'
  20. GETATTR TRACK STEM TRACK
  21.  
  22. numlyr=0
  23. Say '| No._Artist/Group______________Title________________________________Length____|'
  24. do i=1 to TRACK.COUNT
  25.     'GETATTR TRACK NAME 'i' STEM TRACK'
  26.     if i = TRACK.CURRENT then str='*'; else str=' '
  27.     if TRACK.LYRICS = 1 then do
  28.          lyr='L'
  29.         numlyr=numlyr+1
  30.         end
  31.     else lyr=' '
  32.  
  33.     Say '| 'str''RIGHT(i, 2, '0')':'LEFT(TRACK.ARTIST, 25)' 'LEFT(TRACK.TITLE, 36)' ('TRACK.LENGTH') 'lyr' |'
  34.     end
  35.  
  36. Say '|'left('', 78)'|'
  37. if numlyr>1 then str='s '; else str=' '
  38. if numlyr>0 then do
  39.     str=''numlyr' track'str'have lyrics.'
  40.     say '| 'left(str, 76)' |'
  41.     end
  42. Say left('', 80, '¯')
  43.